library(ggplot2) library(plotly)
p <- ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point()
ggplotly(p)